home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tpdb314.zip / PACKTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-31  |  824b  |  39 lines

  1. {$A+,B+,D+,E-,F-,I-,L+,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3. Program PackTest;
  4.  
  5. Uses Crt,TPDB;
  6.  
  7. Var
  8.         H : Integer;
  9.         Test : ^DBF;
  10.  
  11.  
  12. begin
  13.      NEW(Test,Init('packtest.dbf'));
  14.      If Test^.TotalRecs>=500 then Test^.Zap;
  15.      ClrScr;
  16.      Writeln('Appending 1000 records.....');
  17.      Test^.FillRecs(1000);
  18.      Writeln('Deleting 500 records....');
  19.      For H := 1 to 1000 do
  20.      begin
  21.      Test^.GetDBRec(H);
  22.      If H mod 2 = 0 then
  23.      begin
  24.         Test^.Repl(1,'Deleted.');
  25.         Test^.Mark;
  26.      end
  27.      else
  28.         Test^.Repl(1,'Undeleted.');
  29.         Test^.PutDBRec(H);
  30.      end;
  31.      Test^.DBReset;
  32.      Writeln('Packing....');
  33.      Test^.Pack;
  34.      Writeln('500 undeleted records remain.');
  35.      Writeln;
  36.      Writeln('TPDB Version 3.14');
  37.      Test^.Done;
  38. end.
  39.